home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / CASTERM.sit / CASTERM / Utilities / Special / 必殺電報ラウンチャー！！ / SEND ALL[どうもで〜す] < prev    next >
Text File  |  1994-02-09  |  1KB  |  76 lines
  1. #
  2. #　必殺電報ラウンチャー！！
  3. #  Script　for FreeStyle II
  4. #　Program by CASTER
  5. #
  6. #　４月にCASTERMの本がでますので、
  7. #　よろしくお願いします。
  8. #　このスクリプトは転載は禁止です。
  9. #全員に電報を打つ
  10. SETVAL3 = 3;
  11. SETVAL4 = 3;
  12. SETVAL5 = 3;
  13. SETSTR3 = " ";
  14. SETSTR4 = " ";
  15. SETSTR5 = " ";
  16. SETSTR6 = " ";
  17. SETSTR7 = " ";
  18. SETSTR8 = " ";
  19. SETSTR9 = "どうもで〜す^m";
  20. SETVAL6 = 12;
  21. #
  22. #       送る文字列 STR9
  23. #       変えるスクリプトラベルVAL6
  24. #       電報＞ALL
  25. #
  26. L7;
  27. SEND(!^m);
  28.         CASE(選択してください : );
  29.                 GOTO (1);
  30.         CEND;
  31.         CASE(送り先 ( );
  32.         CEND;
  33. CFIN;
  34. L9;
  35.         IFCHAR ()) GOTO(8);
  36.         GETSTR(STR1,"[","]");
  37.         GETSTR(STR2," "," ");
  38.         SETVAL3 = 3;
  39. L10;
  40.         IFVAL (VAL3 == VAL4) GOTO(6);
  41.         CMPSCASE(VAL3,STR2);
  42.                 GOTO(9);
  43.         CEND;
  44.         CFIN;
  45.         VAL3 ++;
  46. GOTO(10);
  47. L6;
  48.         SEAR() : );
  49.         SENDSTR(STR1);
  50.         SEND(^m);
  51.         SEAR(( ２１文字 ) : );
  52.         SENDSTR(STR9);
  53.         SWAPSTR(VAL5,STR2);
  54.         VAL4 ++;
  55.         VAL5 ++;
  56.         SEAR(選択してください : );
  57.         GOTO(7);
  58. L8;
  59.         BEEP;
  60.         SEAR() : );
  61.         SEND(^m);
  62.         SEAR(選択してください : );
  63. #
  64. #　電報ALL終了
  65. #
  66. L2;
  67. SEAR(選択してください : );
  68. L1;
  69. #
  70. #L13;
  71. #        SEND(E^m); 
  72. #        SEAR(終了してよいですか ( Y ) : );
  73. #        SEND(Y^m);
  74. #        SDCD;
  75. END;
  76.